PCMania 48/PCMania CD48_1.iso/pcmania/vbasic48/vbasic48.frm

Text File | 1996-05-25 | 5KB | 193 lines

VERSION 4.00
Begin VB.Form Form1
   Caption         =   "Ventana de Propiedades"
   ClientHeight    =   4230
   ClientLeft      =   1080
   ClientTop       =   1500
   ClientWidth     =   4965
   Height          =   4635
   Left            =   1020
   LinkTopic       =   "Form1"
   ScaleHeight     =   4230
   ScaleWidth      =   4965
   Top             =   1155
   Width           =   5085
   Begin VB.CommandButton Command9
      Caption         =   "Cambiar Icono"
      Height          =   1170
      Left            =   3015
      TabIndex        =   12
      Top             =   2550
      Width           =   1590
   End
   Begin VB.CommandButton Command8
      Caption         =   "Cambiar Tφtulo"
      Height          =   690
      Left            =   3075
      TabIndex        =   11
      Top             =   990
      Width           =   1215
   End
   Begin VB.Frame Frame3
      Caption         =   "Tφtulo"
      Height          =   1575
      Left            =   2700
      TabIndex        =   9
      Top             =   255
      Width           =   2055
      Begin VB.TextBox Text1
         Height          =   285
         Left            =   75
         TabIndex        =   10
         Top             =   330
         Width           =   1935
      End
   End
   Begin VB.CommandButton Command7
      Caption         =   "Abajo"
      Height          =   345
      Left            =   1170
      TabIndex        =   8
      Top             =   3315
      Width           =   525
   End
   Begin VB.CommandButton Command6
      Caption         =   "Arriba"
      Height          =   345
      Left            =   1185
      TabIndex        =   7
      Top             =   2595
      Width           =   525
   End
   Begin VB.CommandButton Command5
      Caption         =   "<"
      Height          =   345
      Left            =   780
      TabIndex        =   6
      Top             =   2940
      Width           =   315
   End
   Begin VB.Frame Frame2
      Caption         =   "Posici≤n"
      Height          =   1575
      Left            =   360
      TabIndex        =   4
      Top             =   2265
      Width           =   2055
      Begin VB.CommandButton Command4
         Caption         =   ">"
         Height          =   345
         Left            =   1395
         TabIndex        =   5
         Top             =   675
         Width           =   315
      End
   End
   Begin VB.CommandButton Command3
      Caption         =   "Tama±o Inicial"
      Height          =   375
      Left            =   645
      TabIndex        =   3
      Top             =   915
      Width           =   1215
   End
   Begin VB.CommandButton Command2
      Caption         =   "Hacerla Menor"
      Height          =   375
      Left            =   660
      TabIndex        =   2
      Top             =   1350
      Width           =   1215
   End
   Begin VB.Frame Frame1
      Caption         =   "Tama±o"
      Height          =   1575
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   2055
      Begin VB.CommandButton Command1
         Caption         =   "Hacerla Mayor"
         Height          =   330
         Left            =   300
         TabIndex        =   1
         Top             =   285
         Width           =   1200
      End
   End
   Begin VB.Label Label1
      BackColor       =   &H00FFFFFF&
      Caption         =   "YA PUEDES MINIMIZAR"
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   2880
      TabIndex        =   13
      Top             =   3780
      Visible         =   0   'False
      Width           =   1860
   End
End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub Command1_Click()
Form1.Width = Form1.Width + 50
Form1.Height = Form1.Height + 50
End Sub

Private Sub Command2_Click()
Form1.Width = Form1.Width - 50
Form1.Height = Form1.Height - 50
End Sub


Private Sub Command3_Click()
Form1.Width = 5085
Form1.Height = 4635
End Sub


Private Sub Command4_Click()
Form1.Left = Form1.Left + 50
End Sub

Private Sub Command5_Click()
Form1.Left = Form1.Left - 50
End Sub

Private Sub Command6_Click()
Form1.Top = Form1.Top - 50
End Sub

Private Sub Command7_Click()
Form1.Top = Form1.Top + 50
End Sub


Private Sub HScroll1_Change()
If (HScroll1.Value > Ant_Valor) Then
    Form1.Left = Form1.Left - 10
Else
    Form1.Left = Form1.Left + 10
End If
Ant_Valor = HScroll1.Value
End Sub


Private Sub Command8_Click()
Form1.Caption = Text1.Text
End Sub


Private Sub Command9_Click()
If (Label1.Visible) Then
Form1.Icon = LoadPicture()
Label1.Visible = False
Else
Form1.Icon = LoadPicture("c:\vb\icons\computer\cdrom01.ico")
Label1.Visible = True
End If
End Sub